﻿Public Class Medios_BusquedaFalloAlta
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante el alta del Medios_Busqueda")
        Me.codigo = Utils.Enumeradores.Excepeciones.Medios_BusquedaFalloAlta
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante el alta del Medios_Busqueda"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class Medios_BusquedaFalloEditar
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la actualización del Medios_Busqueda")
        Me.codigo = Utils.Enumeradores.Excepeciones.Medios_BusquedaFalloEditar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la actualización del Medios_Busqueda"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class Medios_BusquedaFalloBaja
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la baja del Medios_Busqueda")
        Me.codigo = Utils.Enumeradores.Excepeciones.Medios_BusquedaFalloEliminar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la baja del Medios_Busqueda"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class Medios_BusquedaFalloBuscar
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la búsqueda del Medios_Busqueda")
        Me.codigo = Utils.Enumeradores.Excepeciones.Medios_BusquedaFalloBuscar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la búsqueda del Medios_Busqueda"
        Me.innerException2 = innerException
    End Sub
End Class

Public Class Medios_BusquedaFalloConsultar
    Inherits ExceptionManager

    Public Sub New(innerException As System.Exception)
        MyBase.New("Error durante la consulta de Medios_Busquedas")
        Me.codigo = Utils.Enumeradores.Excepeciones.Medios_BusquedaFalloConsultar
        Me.tipo = MsgBoxStyle.Exclamation
        Me.mensaje = "Error durante la consulta de Medios_Busquedas"
        Me.innerException2 = innerException
    End Sub
End Class
